home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / tiptrix / LISTING2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-11-11  |  688 b   |  29 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
  5. type
  6.   TForm1 = class(TForm)
  7.   public
  8.     procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GetMinMaxInfo;
  9.   end;
  10. var
  11.   Form1: TForm1;
  12. implementation
  13. procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
  14. begin
  15.   with Message.MinMaxInfo^ do begin
  16.     ptMaxPosition.x := 100;
  17.     ptMaxPosition.y := 100;
  18.     ptMaxSize.x := 640;
  19.     ptMaxSize.y := 480;
  20.     ptMaxTrackSize.x := 640;
  21.     ptMaxTrackSize.y := 480;
  22.     ptMinTrackSize.x := 300;
  23.     ptMinTrackSize.y := 200;
  24.   end;
  25.   Message.Result := 0;
  26. end;
  27. {$R *.DFM}
  28. end.
  29.